home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 December
/
1985-12.d64
/
disk unprotect
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
332b
|
13 lines
100 print"[147]disk unprotected"
110 open15,8,15:print#15,"i0":open2,8,2,"#"
120 print#15,"u1:";2;0;18;0:gosub190
130 print#15,"b-p:";2;2:print#2,chr$(65);:gosub190
140 print#15,"b-p:";2;166:print#2,chr$(65);:gosub190
150 print#15,"m-w";chr$(1);chr$(1);chr$(1);chr$(65)
160 print#15,"m-w";chr$(2);chr$(7);chr$(1);chr$(65)
170 print#15,"u2:";2;0;18;0:gosub190
180 close2:print#15,"i0":close15:end
190 input#15,en,em$,et,es
200 ifenthenprinten,em$,et,es:stop
210 return